﻿Namespace DotNetNuke.Modules.ActiveForums.API
    Public Class Content
        Public Function Topic_QuickCreate(ByVal PortalId As Integer, ByVal ModuleId As Integer, ByVal ForumId As Integer, ByVal Subject As String, ByVal Body As String, ByVal UserId As Integer, ByVal DisplayName As String, ByVal IsApproved As Boolean, ByVal IPAddress As String) As Integer
            Try
                Dim tc As New TopicsController
                Return tc.Topic_QuickCreate(PortalId, ModuleId, ForumId, Subject, Body, UserId, DisplayName, IsApproved, IPAddress)
            Catch ex As Exception
                Return -1
            End Try
        End Function
        Public Function Reply_QuickCreate(ByVal PortalId As Integer, ByVal ModuleId As Integer, ByVal ForumId As Integer, ByVal TopicId As Integer, ByVal ReplyToId As Integer, ByVal Subject As String, ByVal Body As String, ByVal UserId As Integer, ByVal DisplayName As String, ByVal IsApproved As Boolean, ByVal IPAddress As String) As Integer
            Try
                Dim rc As New ReplyController
                Return rc.Reply_QuickCreate(PortalId, ModuleId, ForumId, TopicId, ReplyToId, Subject, Body, UserId, DisplayName, IsApproved, IPAddress)
            Catch ex As Exception
                Return -1
            End Try
        End Function
    End Class
    Public Class ForumGroups

    End Class
    Public Class Forums
        Public Function Forums_Save(ByVal PortalId As Integer, ByVal fi As Forum, ByVal isNew As Boolean, ByVal UseGroup As Boolean) As Integer
            Try
                Dim fc As New ForumController
                Return fc.Forums_Save(PortalId, fi, isNew, UseGroup)
            Catch ex As Exception
                Return -1
            End Try
        End Function
    End Class
    Public Class Rewards

    End Class
End Namespace
